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able of contents 
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SYSTEM LOADABLE CODE PARAMETERS 

TERMINAL DRIVER CYSTEM PARAMETERS 

RMS DEFAULT PARAMETER 

FILE ACP” tONF I CURAT ION DATA 

Job Controller Parameters 

boain Security ans 

Cluster Paramet 

SYSGETSYI = CETSYi main program 

CHECKITEM = Validate item identifier 

PUTDATA = Put requested data in user buffer 

sanetit - Handle special conditions 
NAMCSID = Get specified node CSID 

EXESNAMCSID = CONVERT NODE NAME TO CSID 
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-TITLE SYSGETSYI = GET SYSTEM INFORMATION SYSTEM SERVICE 
- IDENT Fybes000! 


SRRAAAERAE HAKATA HAA AAA AA AAAAAAAAAAAARAAAAAAAEAAAHAEAETARAEAEAATAAERARAET EAE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eppORati on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


3) ss ss 


NAME WN OO NA NE WWIN  O OD NAME WIN 9 OO NAU EWN HO OONOA UE WN OOONOU SE wr 
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3++ 
; FACILITY: VMS Executive, System services. 
> ABSTRACT: 
: Return processor information to caller, specifically 
3 processor ID register, processor type, and VMS version number. 
> ENVIRONMENT: Kernel Mode 
> AUTHOR: John A. Ywoskus, CREATION DATE: 06-August-1981 
: : MODIFIED BY: 
41 ; V03-026 CWH3026 CW Hobbs 23-Jul-1984 
42 ; Treat the QUANTUM item as special, since it is 
? 3 stored as a negative number. 
9 45; v03-025 MSHO0S9 Michael S. Harvey 3-Jul-1984 
46 ; Treat a specified CSID argument of zero as if the argument 
47 ; hadn't been specified at all. In either case, there is no 
0 48 ; CSID value specified and the behavior of GETSYI should be 
, 49 ; the same for both. 
: V03-024 MSHO0021 Michael S. Harvey 9-Mar-1984 
3 Allow access to SYI items stashed quay in the local SB, 
3 regardless of whether we're in a cluster or not. 
: v03-023 MSHO013 Michael S. Harvey 2-Mar-1984 
; Correctly extract node name length so as not to clobber 
: Pl space and crash the system. 
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v03-022 wMc0003 Wayne Cardoza 99-Feb-1984 
Add SARCDEF. 
v03-021 wacogee Wayne Cardoza 29-Jan-1984 
F and G floating flags. 

v03-020 EeLO00T Sta Lieberwirth 15-Jan-1984 
Fix typo in v03-01 

v03-019 wMCc0001 Wayne Cardoza 07-Jan-1984 
Add page and swap file sizes. 

v03-018 TCMO001 Trudy C. Matthews 28-Dec-1983 


In EXESNAMCSID, do ity access node name posses ays head 
after raising [PL (it may be pagable). 

special parameter; a b is stored as a negative value but should 
be displayed as a positive one. 


V03-017 KFHOO11 Ken Henderson 30 Aug 1983 
Fix resetting of IPL on error path. 
Add documentation of how 
itemcodes are added. 


VO3-016 KFHOO10 Ken Henderson 23 Aug 1983 
Fix checking of item code validity. 
Update max structure code. 
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Added definition” of GETSYISW. 
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v03-015 KFHOOO9 Ken Henderson 18 Aug 1983 
Made SCS_EXISTS special and boolean. 
v03-014 KFHOOOS Ken Henderson 28 Jul 1983 
Finished oupeert for ‘retired’ item-codes. 
Took out call to SCSSCONFIG_SYS. 
v03-013 KFHOOO7 Ken Henderson 12 Jul 1983 
Added temporary additional check for 
clusterness. 
V03-012 KFHO006 Ken Henderson 26 May 1983 
8 Changed EXESNAMCSID entry point to 
, 3 be non-Global. 
101 v03-011 KFHOOOS Ken Henderson 25 May 1983 
: § Updated code to use IFCLSTR ond IFNOCLSTR. 
104 v03-010 KFHOO04 Ken Henderson 21 May 1983 
105 Added support for wild-cardin ough 
1 $ nodes. Added NAMCSID and EXE$ Besib routines. 
! Cleaned up usage of LOCAL_SPACE on stack. 
1 3 v03-009 KFHOO03 Ken Henderson 11 Mar 1983 
' 9 Added .WARN if item-code is undefined. 
' § v03-008 KFHOO02 en Henderson 25 Feb 1983 
114 


———_—_—___—_—___ 


K 7 
SYSGETSYI - GET SYSTEM INFORMATION SYSTEM SERVICE 16-SEP-1984 02:10: AX/VMS Macro Vv04-00 P SYS 
V0e 500 BSE pi obs OSsdesoy Lore venceysceyetiomar:1 P29 Gy v04 
115; v03-007 KFHOOO' Henderso ,* Feb 1983 
118 3 Major rewrite ms EXESGETSYI. and rotate 
117 ; routines to make it table-dri ven like SeruPl. 
138 3 and allow for SYSBOOT parameters and other 
V} ; enhancements. 
1 ? : V03-006 MSHO001 Maryann Hinden 23-Mar-1982 
0 ! ¢ 3 Fix broken BSBW. 
6 124 : v03-005 JAY0006 n A. Ywoskus 17-Mar-1982 
00 ’ $3 Change SS$_ EXQUOTA™ return error to SS$_EXASTLM. 
8 1 : ; v03-004 JAY0005 John A. Ywoskus PS eee 
0000 128 ; Return 8 bytes for system version instead of 4 
44 ! 3 ; General cleanup. 
9000 131; v02-003 LyK0082 wrence J. Kenah 11-Nov-1981 
88 1 ¢ 3 Write accessibil ty of multiple page buffer can 
O60 ! Z : now be done on global routine. 
$008 135 ; V03-002 JAY0004 John A. Ywoskus 05-0ct-1981 
0000 1 § 5 Add null arguments so call List is compatable with 
4 1 3 $GETJPI. Also make externsl references be 
44 138 : addressed with G *, and include VA and PSL defs. 
0000 140 ;: v03-001 JAY0003 John A. Ywoskus 08-Sep-1981 
0000 141; Fix null item iy make return Length optional. 
0000 146 3e- 
0000 143; 
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zyand SYS use s li 
j;parameter fate es¥S_$ 
cused to define GETSYI 


ore ary.te to define their GETXXI tables. The syste 
SYSPARAM.MAR has also been conditiona ized to be 
qe and is also inserted into SYSBLDMLB.MLB. 


NOTE : SYSBLOMLB.MLB is a general macro voces for holding macro 
; definitions that are shared between facilities, but will not 
ship to the customer. 


: ; GUIDE TO GETJPI/GETSYI/GETDVI 
4? : 
4 ; Overview 
4 ‘ Coe ee ow ee 
These three system services are table-driven. The macro definition files 
d with DCL and the RTL. This results 
Teen} becomin 9 usead le with DCL's PSGETRXI lexical functions and 
+E MRIL's LIBSGETXXI1 reutin nes automatically. Additionally, new SYSBOOT 
peerennners become item-codes to the GETSYIs. 
The macro aka ttintstog files are ret ng JPITABLE.MAR, SYITABLE.MAR, and 
SRC>. Dur ring 3 systembui ld the 
3 jare inserted” pate the ibeare SySSL IBRARY. SYSBLDMLB.MLB. DCL one . e RT 
6 
6 
6 
6 
6 
6 


4 
g :DVITABLE.M R, and Live in MASD$:<VMSLIB. 
0 
4 
8: 
0 :when adding an item-code, at least two files ee. ke be edited. One of the 
smacro files Listed above, as well as an SDL file that defines the 16-bit 
§ snumber which is the user-visible item-code. Also, if a SYSBOOT parameter is 
s added, an SDL file needs to be updated to define the new GETSYI item-code. 


¢ if ithat t help def ne the r tables are share 
5 
1 
5 
1 
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43 
5 iThe GETOVI service petual ty uses only one table, but the GETSYI and GETJPI 
$ tserv vices use several. The JPITABLE file defines all the tables for GETJPI 
sand the SYITABLE file defines all the tables for GETSYI. The different 
8: stables group the pieces of data according to method of retrieval. 
0 


zIn some cases, the erege of data to be returned by the service requires 
1 ispecial processing to fetch, calculate, or format it before returning it. 
$i zIn these cases, the cose of the system service needs to be enhanced. 

31f the data returned is a new format for DCL, the lexical function 
4 i of DCL may need to be enhanced. This “t also true for the RTL code. 
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3;The Macros 


3A bans Pn scheme gators for qervaine the {ten $gdtes used by the three 
sservices and the other facilit common ty oe efined re°Si8 (called 
3 JPI_GENERATE_TABLE, SYI "GENERATE a lABLE. or DVI_GENERATE_TABLE) contains 
ymul s, ge ts to a ovdr~ Lovet acre tc called wl ITEM ODES SYI_ITEM_CODE, 
ior DV ODE) et 4 +e nes each element tn the table 

While thee MeENERA Pnacrot are commonly defined, the _ITEM_ CODE macros 
tare Individuetty. det Hae according to the needs of facility. (For instance, 
sthe LEXICON ~ ey must store the name 9 the item gs an ASCIC string - in 
sorder to mercy it with the string suspt 9 in the FSGETXXI function call; 
ithe other facilities need not store t tem name in text. 


when an item-code A ae be added, an additional call to the _ITEM_CODE macro 
tmust be added to t aProee ate _GENERATE_TABLE macro. In the case of GETJPI 
Le Peters vee. GENER ABLE macro is g6f ined in the JPITABLE and DVITABLE 
inod ules. the ENERATED TABLE macro is defined by the SYSPARAM module 
the es the PARAMETER and PQL macros are ‘collected’ into the 
ee GEN wenage. there macro. When wees in that mode (when GETSYISW is defined). 
ithe SYl TABLES. ts. pare a|so becomes part of the SYI_GENERATE_TABLE macro. 
prent ABLES is defined in the SYITABLE module and Contains all the calls 
+H he SYI_ITEM_CODE macro that are Not related to SYSBOOT parameters. 
when GETSYTSW iS defined in SYSPARAM, the PARAMETER macro does not allocate 
ior epee mem Titer but rather passes some of the arguments to it on through via 
+: cori fo svi gifen CODE. That is how all the calls to PARAMETER become calls 
ito ‘ 


zThe following is the situation that exists when the : meet GETSYISW is defined. 
tne non=SYSBOOT items are defined by the macro SYI_ITEMTABLES in SYITABLE.MAR. 
The SYSBOOT items are defined by each invokation of the erg tte anecre in 

: SYSPARAR, MAR. Note that each invokation of the PQL macro in SYSPA MAR 
zinvokes the PARAMETER macro twice. When GETSYISW is defined she PARAMETER 

macro werety Pittn its arguments pre to a call to the SyI_I 

macro. The SYI_ITEM_CODE macro is locally defined as needed by” as Meet tee. 


Cpe wee eee weno eee sewn ew een ean se ene i ee eee er we row aman + 


SY1_GENERATE “TABLE 


tf SYI_ITEMTABLES 
3 ! PARAMETER | POL 
3 | PARAMETER | PARAMETER | 
i isvd. ITEM_CODE! isvl ITEM. CODE!SY1_ITEM_CODE!SYI_ITEM_ CODE! iSYI_ITEM CODE! 
: /\ / 

| / \ / 

: FROM SYITABLE.MAR FROM SYSPARAM. MAR 


WN OOD NAN WN | 9 OD NAME WN OS OD NA NEW O ODNAUE Wi OO 


PROP PPIPOPIPONOPONPPONOPOPOPONOPIPONOPONONOPONIPONUPONIPUNUIINUIN 4 
WAAR PIPIPIPINPNININDNY 4 9 BQO OOOO OOCOOWOOOOOOO0O 


3 (NON-SYSBOOT ITEMS) (SYSBOOT ITEMS) 


SYS! 
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500508 DECLARATIONS green 1882 9g: 10:48 SYS.SRCISYSGETSYI.MAR;1 . (2) 
SBTTL. DECLARATIONS 

SARCDEF 3; architectural flags 

SCLUBDEF ; cluster block definitions 

SCSBDEF : cluster system block definitions 

SIPLDEF 3 a" definitions 

SPCBDEF ; define processor control block 

SPFLDEF 3 page file control block 

SPROEF ; define processor registers 

SPSLDEF ; define processor status register 

SSBDEF 3; system block definitions 

SSSDEF 3; define status codes 

SSYIDEF 3 define GETSYI item identifiers 

SVADEF ; virtual addressing definitions 


Define the following symbol so that SYSPARAM macros will conditionalize 
correctly for us. 


GETSYISW = 0 


00000000 


3; MACROS: 


Macros to define entries in the four item information tables. 
There is a table for each data structure from which the user may 
request information, and one table for information returned as an 


SOOOOCOOCSOOOSOOSOSOSOOOOOSOOOCOOOSOOSOSSO -~< 
OCOOOOCOCOSOSCOSOOOOOCOSOSOOOCOOOOOOOOOOOOOOOOoOO OF 
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0 address. Tables are indexed by low byte of item identifier. 
8 Refer to "OWN STORAGE:"* for pictures of the table entries. 
0 
0 «MACRO SYI_ITEM_CODE BASE,- : for service to use 
0 NAME ,- 3; of the item-code 
0 SOURCE ,- : of the data 
0 DTYPE,- 3; of returned value 
0 BITPOS,- ; of FLD type data 
BITSIZ,- 3 
OUTLEN 3; of returned value 
0 


IF NOT_DEFINED SYI$_ "NAME 

-IF IDENTICAL <BASE><EXE> 

WARN ; SYIS_*NAME IS NOT DEFINED AS ‘EXE’ IN STARDEFQZ.SDL 
-ENDC =; IDENTICAL 

-I1F IDENTICAL <BASE><FLD> 

~-WARN ; SYIS_"NAME IS NOT DEFINED AS ‘FLD* IN STARDEFQZ.SDL 
-ENDC =; ~ IDENTICAL 

-ENDC ; NOT_DEFINED 

STEP = 5 
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LIF IDENTICAL <BASE><EXE>, STEP = $ 

~LIF IDENTICAL <BASE><FLD>, STEP = 

XTYPE = VALUE 

eLIF IDENTICAL <DTYPE><HEXNUM>, XTYPE = VALUE 

-IIF IDENTICAL <DTYPE><DECNUM>, XTYPE = VALUE 

~LIF IDENTICAL <DTYPE><PRVMSK>, XTYPE = VALUE 

-IIF IDENTICAL <DTYPE><PADSTR>, YPE = BSTRING 

-LIF IDENTICAL <DTYPE><HEXSTR>, XTYPE = BSTRING 

-LIF IDENTICAL <DTYPE><CNTSTR>, XTYPE = CSTRING 

-IIF IDENTICAL <DTYPE><STRDSC>, XTYPE = VALUE 

LIF IDENTICAL <DTYPE><BITVEC>, XTYPE = VALUE 

-LIF IDENTICAL <DTYPE><BITVAL>, XTYPE = VALUE 

-LIF IDENTICAL <DTYPE><STDUIC>, XTYPE = VALUE 

~LIF IDENTICAL <DTYPE><STDTIM>, XTYPE = VALUE 


- = BASE'TBL + <<SYIS_"NAME & “XFFF> * STEP> 
TIF IDENTICAL <BASE><FLD>, .WORD <BITSIZ-1>a11!BITPOS 


-LONG SOURCE 
«BYTE XTYPE@S!OUTLEN 


-ENDM = SYI_ITEM_CODE 
This macro defines the entries to the table of special items. 
The items in this table must be handled by action routines 
before being. Agee < col has a wre item identifier 
followed b addre an on routine. 
ALL PROCES oe MeECISTER’ fens ARE SPECIALS. 

MACRO SPECIAL ITEM NAME ,ROUTINE 

D  SYI$_ "NAME 
TADDRESS ROUTINE 
-ENDM SPECIAL_ITEM 


This macro defines flag bits. 


EQUATED SYMBOLS: 


EFN = 4 3; event flag number argument 
NULLARG! = 8 ; first nul ergquaen ~# 
NULLARG2 = 12 ; second null argumen 

ITMLST = 8 . ¢ address of item iieeettiors 
10s = 2 ; 1/0 status block address 


ee ue eae 
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0 18 49 ASTADR = 24 3; ast routine address 
1 0 ASTPR = 28 ; ast parameter 
1 MAXSTRUC = 3; maximum structure code | 
§ VALUE = ; datatypes 
4 4 BSTRING = 1 
0 4 CSTRING = 2 
FFFFFFE 5 LOCAL_SPACE = -32 ; 8 lLongwords on stack 
FFFFFFE 2$ BITSIZ = LOCAL_SPACE+0 
FFFFFFES BITPO = LOCAL _SPACE+4 
FFFFFFE8 000 38 TEMPORARY = LOCAC_SPACE+8 | 
FFFFFFEC 00 5 SPECIAL_SPACE = LOCAL _SPACE+12 
FFFFFFFC 60 FLAGS = LOCAL_SPACE+28 
000 362 
i444 es ; Bit definitions for flags longword on stack 
0000 65 
00000000 0000 6 SYI_BIT = 0 
0000 6 SYIBITS WILD,1 ; we're doing a wildcard operation 
0000 68 SYIBITS INCLUSTER,1 ; we're in a Live cluster 
0000 4 SYIBITS REMOTE_NODE,1 ; the target node isn't the local node 
ia A! SYIBITS RETIREB,1 ; the item=-code isn't in use anymore 
0000 ie 3 
0000 73 ; Max structure number definitions 
BH He 
00000101 0000 76 MAX_EXE_ITEM = <SYIS_LASTEXES“XFFF>-1 ; maximum EXE item number 
0000002A 4444 aA MAX_FLD_LITEM = <SYIS_LASTFLD&*XFFF>-1 ; maximum FLD item number 
0000 79 ; 
0000 80 ; OWN STORAGE: 
4 81 ; 
000 +f) 
er 8 -PSECT YFSSSYSGETSYI 
000 84 
0000 85 ; ft 
0000 6 ; This array contains the maximum item number for each of the two 
B38 4 ; item data structures, indexed by structure number. 
000 89 MAXCOUNT: 
0101 BOS 90 -WORD MAX_EXE_ITEM 
002A 000 91 “WORD  MAXTFLDTITEM 
0004 92 
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are zeroed explicitly to allow the code to 
Lized element (because of a retired item-code) 


: The following tables t 


; recognize an uninitia 


> .LONG SOURCE 
“BYTE DTYPE@S!OUTLEN 


-REPEAT S*<WAX, EXE, ITEM#1> 


-ENDR 
FLDTBL: 


: WORD <BITSIZ-1>a11!BITPOS : 
: [LONG SOURC : 
: [BYTE DTYPE@S !OUTLEN : 


.REPEAT 7*<MAX_FLD_ITEM+1> 
“BYTE 0 
. SAVE 


SERRATE E EE 


; GENERATE THE TABLES USING THE COMMONLY DEFINED MACRO 


° 
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SY1_GENERATE_TABLE 


SYSGETSYI = GET 
voe-600 CONTRO 


rw 
~< 


00000004 


00000005 
00000000 
00000515 


00000000" 
01 
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Pp 
Pp 


SE 
“SE 


»NLIST_ CND 
PARAMETER ae. 
T= — 


Aine a 


BITEEXESY BuGh SYS>,- 
UNI T=Boolean 

FLD,- 

CBUGR REBO 

<EXESGL OOEFFLAGS>, ° 
BITVAL,= 
<EXESV_BUGREBOOT>, - 
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YI main program SEP-1984 

~SBTTL SYSGETSYI = GETSYI main program 
*+4+ 

; FUNCTIONAL DESCRIPTION: 


This service allows a process to receive status and identification 
information about the system on which the calling process is running. 


CALLING SEQUENCE: 
CALLS/CALLG 
; INPUTS: 


EFNCAP) = number of the event flag to set when all of the requested 
. ata is valid. 


perme ececocencca eee rere eset eee es > 
I 


! ITEM CODE ! BUF. LENGTH ! 


wee ee cee sees eer eee emcee emoenen $ 


; BUFFER ADDRESS : 


eeceece eet ee renee wm es nema ere on ame $ 


: ADDRESS TO RETURN LENGTH ! 


See em mw rene eens eee mec e we rn oan} 


IOSB(AP) = address of a quadword 1/0 status block to receive final 
status 
ASTADR(AP) = address of an AST routine to be called when all of the 
requested data has been supplied. 
ASTPRM(AP) = 32 bit ast parameter 
; IMPLICIT INPUTS: 
none 
; OUTPUTS: 
none 
; IMPLICIT OUTPUTS: 
none 
; ROUTINE VALUE: 
SS$_NORMAL => normal completion 
SS$_EXASTLM -> AST quota exceeded 
SS$_ACCVIO => ITMLST can not be read by the calling access mode, 
or the return buffer or return Length word can not 
be written by the calling access mode 
SS$_BADPARAM -> an invalid item identifier was supplied 


; SIDE EFFECTS: 


SYSGETSYI 
vou=600 


06D2" 


SE 
51 14 AC 
53.04 AC 
00000000 * GF 
68 50 


8 
54 00000000" GF 
38 A4 


55 10 AC 
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I main program 


; Allocate some 
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: Validate AST, 
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: Loop through item descriptors 
; ers and moving accessible items. A zero item identifier 
; terminates the List. 
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YEXEPAGED 3; only entry mask in this program section 
EXESGETSYI,“M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
EXE_GETSYI 


YFSSSYSGETSYI 
local space on the stack 


LOCAL SPACE(SP), SP 


FLAGSTFP) 3 reset the flags longword 
sre? td ; process nodename/CSID pair 


clear possible I0SB 


ren et IOSB address 


ranch if none 


#8,(R1),30$ check write access to it 
(R1) clear 10S 

clear event flag 

EFNCAP) ,R3 3; get event flag number 
G*SCHSCLREF :; clear event fla 

RO,GRET : and return on errors 

if present 

ASTADR (AP) 

5$ no AST to check 


G*CTLSGL_PCB,R4 > get our PCB address 
PCBSW_ASTCNT(R4) ; 1s AST quota exceeded? 
40$ : branch if so and return error 


validating the requested item 


URL STCAPD RS ; Fe item descriptor List address 
0$ ; ITMLST not optional 
#4,(R5), 308 ; check first longword readable 
3; top of item-get loop 
(R5)+,R6 : get qutter size 
(R5)+,R1 z get item identifier 
695 ; done if zero, take porast exit 
#12, (R5),30$ 3; check rest of this descr ptor ... 
; R us first lonqword of next one 
(R5)+,R7 ; = buffer address, R8 = length address 
R1 3 save Ri across accessibility check 


; transfer to real procedure 
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YI main progras 


S errerfeuccess 
hess MOVZWL 


9 408: ot 
1 508: pov ew 
§ 60S: MOVZWL 


J 
10$: MOVL 


20S: MOVL 


30$: POPL 
RET 


stavice Tgcgee- 


mm 
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R7,R 
R oR 
R 


EXESPROBEW 
RO. 308 


R5 
CHECKITEM 
PUTDATA 


R 
RO, 10$ 
GRET 


dispatch points: 


#SS$_ACCVIO,RO 
RET 


#SS$_EXASTLM,RO 
#SS$_BADPARAM, RO 


#SS$_NORMAL ,RO 
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oy B ecerons to RO 

and si 

PROBE Witte A... PSL<PRVMOD> 

check write accessibility of buffer 
buffer not accessible 

Ae gg § R1 for es by CHECKITEM 
save R across item check 

check item's validity 

return error if not Yalid 

put the item requested in user buffer 
unsave R5 

continue on success 


access violation 
terminate service below 
AST quota exceeded 
terminate service below 
pcceges item or request 
terminate service below 
normal return 


flag, post completion status, and declare completion AST 


=r 
>» 


t PSL 
_PRVMOD ,#PSLSS _PRVAOBSR R4,R4 
R4~ ; queue the completion A 
: restore completion status 
3; and return. 


TASTPRM(AP) , 


save completion status 
get PCB addre ss 

get process’ : PID 

set null priority increment 
get event flag number to set 
set the event fla 

et address of 1058 

ranch if none 
check if writable 
store completion status 

et address of AST routine 
ranch if none specified 


3 extract previous mode 


Ce eel 
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5028508 CHECKITEM = Validate item identifier eet 7 9g: 10:48 SYS.SRCISYSGETSYI.MAR;1 sat 2; Vv04- 
ay § § -SBTTL CHECKITEM = Validate item identifier 
781 3 ++ 
781 g § 3 
4d ° ; FUNCTIONAL DESCRIPTION: 
781 6 § 3 Routine to validate item identifier and return information 
Ay ° Z 3 about the item. 
ey ° 5 ; CALLING SEQUENCE: 
781 ° $ 3 JSB/BSB 
781 8 3 ' 
781 639 ; INPUTS: 
781 640 ; 
7B1 641; R1 = item identifier 
781 otg 3 
781 6435 ; IMPLICIT INPUTS: 
gre 644 ;: 
781 645 ; none 
0781 646 ; 
0781 647 ; OUTPUTS: 
are 648 ; 
7B1 649 ; R1 = item identifier 
0781 650; Re = structure number 
0781 651; R35 = item length 
0781 626 $ R4 = item source address 
07B1 653; R5 = item type code 
07B1 654; BITSIZ(FP) = if FLD 
0781 655; BITPOS(FP) = if FLD 
0781 $28 ; 
tet 657 ; IMPLICIT OUTPUTS: 
781 658 ; 
0781 659; none 
are} 660 ; 
781 661 ; ROUTINE VALUE: 
781 $66 3 
781 +3665 ; RO low bit set -> successful return 
ret ye ¢) 3 RO low bit clear -> invalid item identifier 
$7 666 ; SIDE EFFECTS: 
07B1 667; 
07B1 668; none 
07B1 669 ;-- 
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y02°500 CHECKITEM = Validate item VSTEN, SERV §- -SEP-1 198 88: 40: 8 SYS.SRCIS SYSCET SYI.MAR;1 . (4) 
7B1 71; 
781 re ; This table is used to convert the pre V4 GETSYI item-codes to the 
Ay oF 3 new ones, which have a different form. 
7B1 675 3 Old form: jo j§  ¢asss««« $ececececess + 
7B1 0/8 3 : 8 bits ; 8 bits ; 
7e1 677:  . © ©«—ss_C(“‘(“‘éd RDG rwerwnnwe 
781 9/8 ; SYIS_OLDVERSION = 1 
7B1 679 ; SYIS_OLDCPU = § 
7B1 680 ; SYIS_OLDSID = 1 
7B1 681; 
7B1 ° § : New form: jg ¢ase¢eeseeeeeeecce + 
781 3 43 212 bits $ 
7B1 6 4 g eee pomana newman mes + 
781 685 ; compatibile with old = 0 
7B1 6 § 3 EXE items = 
0781 687 ; FLD items = 2 
ed 688 ; 
7B1 689 
0781 690 COMPAT 
1000 0100 0781 691 WORD SYI$_OL 192 wea SYIS_VERSION 
2000 tH 785 036 «WORD SYI$-OLD SYI$_CPU 
1001 0201 re o37 » WORD SsYI$~ OL USD. SYI$_SID 
7BD 695 -ENABLE LOCAL_BLOCK 
78D $36 
7BD 697 CHECKITEM: 
50 04 O7BD 698 CLRL RO 3; assume error 
51 F000 8F 683 O7BF 699 BITW #*xF000, R1 ; is it a new item-code? 
i 12 07C4 700 NEQU $ 3; NEQU means it is 
53 0 9A boc8 701 MOVZBL #3, R3 3 setup to scan table 
52 E3 AF M3 7¢9 re MOVAW COMPAT=-2, R2 
8 B85 07CD 4 5$: TSTW (R2)+ ; skip past new item-code 
n.)6hCUG B1 7CF 6704 CMPW (R2)+, R1 ; does it match this old item-codes? 
0 is 702 = 705 BNEQU§ 7$ 3; NEQU means it does not 
51 Se 8 704 706 MOVW (R2), R 3; match, use the new itemcode instead 
0 11 370F a4 BRB ve : continue Like nothin happened 
F153 £5 O7D9 708 7$: SOBGTR R3, 5$ ; cycle through the ta 
55 11 «O7DC~=Os 709 BRB a S errer_if it-ueen't in the teble 
36 51 04 OC EF 7OR 710 10$: EXTZV #4, RI. R 3 get the structure number 
530 51s 99 ef 7E3 711 EXTZV AEs : gett the item number 
02 1 O7E8 re CMPB R paAns tRUC ; a legal structure number? 
“9 1A O7EB 71 BGTRU 9 3 ciny" asene it is not 
F80B CF42 ; } 7E 714 CMPW R35, MAXCOUNT-2CR2] : is it a legal item number? 
E A O7F 715 BGTRU 9 ; GTRU means it is not 
his rg CASE R2,<EXES,FLD$>B,A1 ; goto the appropriate code 
53 03 gs 4a} oe EXES: MULL #5, R3 3; calc total offset 
53 F7FF CF4 E 080 71 MOVAB . R3 ; get address of table element 
1A so o8 f 9 BRB 
53 «607 gs 7 § FLD$: MULL :; calc total aot feet 
FCEE C43 9E 08 7 MOVAB er oree CR3 R31, R > get address t table element 
EO AD 63 «005)~—C(OB’”SsC‘éER:C#«i14.—s«s«s7'28 EXTZV ‘ l # &R j BitsizcFP) : get (bitsiz-1) value 
EO AD 06 17 «725 INCL BIT Ag} : restore its original value 
—E4 AD 63 08 ° EF 1A 7 § EXTZV #0,#11,(R3),BITPOS(FP) ; get bitpos value 
B5 20 7 TSTW (RS)+ 3 point to next Longword 


SYSGETSYI - GET SYSTEM INFORMATION SYSTEM inl % 16-SEP-1984 AX/VMS Macro V04-00 P 
bas i CHEEKITOR Vet iowte tome cee gr SEE 1S8e BSiAkidS HANCMES Macca VOHTOO 8, Page 
54 3 00 50$: MOVL (Rs3+. RG 3 source address 
D 1 BEQLU 100$ 3 SOURCE MEANS RETIRED ITEM-CODE!! 
| t4i8 GEMS FTERCEGog tt MVE Bt 
23 $3 93 ; f EXTZV 93 BR. (RE) ORS : get DTYPE 
6 8 EF 4 EXTZV #0,#5,(R35),R 3; get OUTLEN 
06 4 5 70$: INCL RO 3; Success! 
05 ? 4 $ 900$: RSB 3 return to caller 
FC 40 8 C 4 7 § 100$: BISL ecie YI_V_RETIRED>, FLAGS (FP) 3 mark it as obsolete 
D 8 740 MOVL ; src length 
54° EC AD DE B 741 MOVAL SPECIAL aSPACE(FP),R4 = ¢ Scratch area 
04 F og CLRL (R4) ; null answer now 
55 09 DO 0841 74 MOVL #VALUE ,R5 3; dtype 
11 0844 744 BRB 70$ 3 success exit 
846 745 
846 746 DISABLE LOCAL_BLOCK 


———+ 
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-SBTTL PUTDATA = Put requested data in user buffer 


SYSGETSYI = GET 
V0a=800 PUTDAT 


* 
+ 


FUNCTIONAL DESCRIPTION: 
This routine moves the requested data to the user's buffer and 
returns the actual data length to the user. It assumes that the 
user's buffer has been probed. 

CALLING SEQUENCE: 
JSB/BSB 


INPUTS: 


COCO CO CD ODOD COCR ORODODOCODORODODCRDCD PMH 


Salalah ah daha tak la at lak tak lala dd 


OOCOOCOCOOCOCOCOCOOOOOCOO 


item identifier 

data structure number 
item length 

item address 


DD 
wr 
nunnn 


item type code 
= user buffer length 
R7 = user buffer address 
R8 = address to return Length 
BITSIZ(FP) 
BITPOS(FP) 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


4 low bit set => success 
RO low bit clear => access violation on write of length 


SIDE EFFECTS: 
Registers R1-R4 destroyed 


PPR DPLDP_APEPAPPAP AAA AAA AAA AAA AA AA AA AAA AAA AA AA AAA AA AA AA AD 


DDD eeeenenTrTwrTs 
Tere eee Tee ere ere rere ree re rere rere rerererererererererererererererere re rere rarer 


ISS 
ooo 
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N 
is" Able STRL INURL ASTER SEOMGE, CRETE BUS ON 


? 
138 PUTDATA: 
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: Call routine to check for special conditions 


27 FC AD ; ‘ BBS #SYI_V_RETIRED,FLAGS(FP),15$ ; skip alot for oldie items 
BSBB CHECE SPC ; handle special items 
4F 50 =#2€€ BLBC RO,508 3 were we successful? 


; Check for counted string, and find actual length if so. 


CMPL + aaaale ; is this special string? 
BN 10$ 3; branch if not 
MOVZBL (R4)+,R3 ; get length and skip length byte 


3; Fetch the bitpos and bitsiz if it's a FLD item 
02 $2 Dt ios CMPL RZ, ASYISC_FLOTYPE ; is it FLD?) 
1 1 BNEQU 1 4 ; NEQU means it is not 

50 EO AD OD MOVL BITSIZ(FP), RO 3 get bitsiz 

51 E4 AD OD MOVL  BITPOS(FP). R1 3 get bitpos 

Es AD 64 OD (R4), TEMPORARY (FP) ; get copy of cell 
4 EB AD OE TEMPORARY (FP), R4& : point to copy 

64 64 50 51 EF EXTZV R1,R0,(R4), (RE) : fetch sub-field and save 


: Move the data 
15s: PUSHR #*M<R3,R5> save needed registers from movc 
RS (RG HO,R6, (R7) move data to user's buffer, zero fill 


MEN 0 ODNO UE WIN 8 ODNO NE WIN | 0 ODNOU EW O OO NO UNE wn" O 
z= 
oo 
<< 
>r 
i 


BREE FE FWA WIWIWIPIPONPNPIPUPIIIIN 2 SS = BODO OOO D0 


gS 8 
$3 BA PO 3; restore registers 
8 0 TSTL ; did caller want return Length? 
18 = BEQL 30$ ; branch if not 
IFNOWRT #2,(R8),40$ 3; exit if word not writable 
02 FC AD 03 e1 BBC #SYI_V_RETIRED, FLAGS (FP) .1 
2 D4 CLAL R ; make his retlen null 
56 3. SoD D 18$: CMPL R3,R6 3; see how much was moved 
03 15 089 BLEG 208 > use valid data length if it fit 
53 28 4 9 MOVL Rg -RS ; else give him ‘too short"’ buffer size 
68 5 B : 208: MOVW R35, (RB) ; return length to user 
50 01 HS 9 30$: MOVZWL #SS$_NORMAL ,RO 3 set success code 
oe RSB 
50 OC 3g 9C 40$: MOVZWL #SS$_ACCVIO,RO 3 set error code 
OF 50$: RSB 3 return 
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-SBTTL SPECIAL = Handle special conditions 


SYSGETSYI ~ GET 
vous608 SPECIA 


rw 
are 
-Zz 


n 


+ 
+> 


FUNCTIONAL DESCRIPTION: 


These routines handle data items which must be transformed 
before ne are returned to the user. Generally, some 
transformation is applied to the data item and the newly 
computed item is stored in SPECIAL_SPACE on the stack. 

The handling routine then changes R4 to point to SPECIAL_SPACE 
so that PUTDATA will move the item from local storage. 


CALLING SEQUENCE: 
JSB/BSB 
INPUTS: 


OOOO OCOCOOOOOOCOCO 


0 0D 09 Cd CO CD 09 OD 09 09 Cd OD 0D OD CD 0D C9 CD CD CD C9. 00 0D 00 GP CD CD 


item identifier 


DDwDwD 
orwe 
nnunw 


target fo8 sdaress 
R11 = target CSID 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 


rPPrPrrrrrrrrrrrrrrrrrrrrrrrr>r> 


COCO OCOOCOCO COCO OCCOSOOOOCOOOCOOOOCOCOCOOOCOOOOOOOOOOOOO 
9.09 00 Cd 09 Cd 09 Cd Cd Od OD CD OD C9 CD CD CD CD Cd CD OD CD OD CD OD CD CD 09 0D 09 C9 CD 09 09 CD CD CD CD CD CD0D CDOD0D0D 


O30. 0900 09 09 09 00 09 09 09 C8 SI NINN SIN NPA AAA A AAA MMIII 
=O OO NAME WIN HO OO NAN EWN OO ONAUE WN OOONAUS WI OOO~n 


See ew ee eee ele elo ol ololololololololololola) 
Tere Te Tee Te Tee ree Tere re rere re re rererererererererererererere rere rere rere rere eee 


2.00 Cd 09 Cd 00 Cd Cd Cd OD CD C9 OD OD CD CD CD CD 
r>rrrrrrrrrrrrrrrrr 
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CHECK_SPC: 


: Registers R5 - R8 are saved at this level and may be used by 
; the action routines without being saved. Action routines are JSB'ed 
; to with R5 containing the address of SPECIAL_SPACE on the stack. 


PUSHR #*M<RS5,R6,R7,R8> 3; save resisters 
MOVAL SPECIAL SPACE (FP) .R5 ; local storage for action routine 
CLRQ (R5) ; clear the special buffer 
CLRQ 8(R5) 
MOVZWL #SS$_NORMAL,RO ; assume success 
MOVL #SPECIAL LEN.R7 3 get number of table entries 
1. MOVAL SPECIAL,R 3 get address of table 
CMPW R1,(R8)+ ; does entry match item? 
BEQL =s- 208 > yes, go handle it 
ADOL #4,R8 ; skip handler address 
SOBGTR R7,10$ 3; scan rest of table 
BBC #SYI_V_REMOTE_NODE,FLAGS(FP),35$ ; nonlocal noncluster info? 
MOVL R5, ; make the returned data nuli 
35$: Amy #*M<RS,R6,R7,RB> 3; restore registers 
20$: ; 
JSB a(R8)+ 3; call action routine 
BRB 35$ 


H 
; Data handling routines 
FERRARA AAA EEE AAEEAEAAREAAARAREAREE 


; ALL NON-CLUSTER SPECIAL DATA ITEMS SHOULD TEST REMOTE_NODE AS BELOW 


FERRARA EERE AERAEEAAERAAAAAAAAAAAREERAEAA AERA RARER AREAS 


: Is the SCS code loaded? 


SPC_EXISTS: 
BBS 


#SYI_V_REMOTE_NODE ,FLAGS(FP) ,POINT_R4 ; skip it for remotes 
TSTL SCSSGA-EXISTS ; is the cell empty! 
BEQLU Points : null cell means it doesn't exist 
INCL (R5) ; make result TRUE 
BRB POINT_R4 


> Processor registers require special instructions to fetch 


944 ; 
Be SPC_PROCREG: 


4 LLP Heese SSS SSS SSS SS SSS SSS SSS SS SSSBPS ISSO SGSOBABRMRe 
“M 


BBS #SYI_V_REMOTE_NODE.FLAGS(FP) ,POINT_R4 ; skip it for remotes 
MFPR R4, TRS) ; get the Fegister contents 
eve POINT_R4 
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41 FC AD 02 
65 gr 
C 


65 FC AD O01 01 
34 


2F FC AD 01 
57 00000000'EF 
54 aah? 


1D FC AD 


51 
51 eneeeadl 


54 «55 

EC FC AD 01 
EB 30 

51 68 a9 

54 6144 


GET 
ECI 


rw 
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sP 


—-om 
—mo 


WDODODODOOOOOOOOODODOOOOODOODOOODOODOOOOOOOO0O0000000 


$0009.09 69 09 09 09 09 09 09 09 SI NIN NINN SNS NIAAA AAA AAO 
=OOOONAUE WN SO OONAU EWN OO ODNAU EWN O ONO EWI O 


9 
51 8ED 


DWDODODOOOOOOOOVOOOOO0000000000000000000000000000 0000000000 00 CD CD CD CD CD CD CD CD 0D 


PUPV PVT BS BS BB AAAI III II 3 a 9 8 GS QQ QOD 100 8 08 08 08 8 FF FF PEEPS TESTE ETIET IETS 
NSHLOOM F NVM OOOOVIMVWO BP PS POL — MOOWIWIW SS OF SI TNOODOOOVOVS DHT HHH 
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; Cell is stored as a negative, reverse it and return 


SPC_NEGATIVE: 
B #SYI_V_REMOTE_NODE,FLAGS(FP),POINT_R4 ; skip it for remotes 
MNEGL (R4)> TRS) ; Negate if 
BRB POINT_R4 


: This cluster item makes sense even when not in a cluster 


SPC_MEMBER: 
EXTZV #SYI_V_INCLUSTER,#1,FLAGS(FP),(R5) ; get the flag 
BRB POINT_R4 


: These are cluster only items 


SPC_CLUB: 
BBC 


#SYI_V_INCLUSTER,FLAGS(FP),POINT_R4 ; return null if no cluster 
MOVL CLUSGL CLUS .R? 3 get the address of the CLUB 
MOVAB (R7)CR&J,R4 ; get the address of the field 
BRB FETCH_CLU 
SPC_CSB: 
spc Leck #SYI_V_INCLUSTER,FLAGS(FP),POINT_R4 ; return null if no cluster 
SETIPL LOCK :; lock the database 
BSBB VERIFY_CSB ; double check the CSB address 
BLBC RO,POINT_R4 : exit if bad 
MOVAB (RO) CR4I7R4 : get actual address of field 
BRB FETCH_CLU 
LOCAL_SB: 
PUSHL R1 3 save R1 
MOVAL G*SCS$GA_LOCALSB,R1 ; point to our local system block 
BRB GET_SB_FCD 3 go get desired information from SB 
POINT_R4: 
MOVL R5,R4 ; make R4 point to data 
: RSB 
SPC_SB: 
BC #SYI_V_INCLUSTER,FLAGS(FP),LOCAL_SB ; use local SB if no cluster 
SETIPL LOCK ; lock the database 
SBB ag A CSB ; double check the CSB address 
LBC RO,POINT_R4 ; exit if bad 
PUSHL R11 ; save 
MOVL CSBSL_SB(R9) ,R1 ; get SB address 
GET_SB_FLD: Y 
4 MOVAB (R1)CR4],R4 ; get actual address of field 
POPL R1 ; restore R1 


SYI$ 


NWUKHAWKWUWHKHNHVNHNHKNNHVNHVNNHKNNKHNNONKNNNNNNHNNNNNNNKNNNNYNONYoOY 
ew we ee ae a a a a a a a a a a a a a a a a a a a a ot tt 
ee ee Be fe ne Pe ne De fad Dt bt ed ed Bd band nd nd Bnd nd Dad Bad Pet Ped ed ed ed ed ad ed Bad Pd bd Bd nd Bnd Bad ad Pe Dd bet nd 
a al a A DO RR OD OB A FD CFD EP An OSD OD A WD Oe nt Ot RE D1 OD DOA 
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yon e508 SPECIAL = Handle special hb Ba -SEP-1984 86:32) SYS.SRCISYSGETSYI.MAR;1 ° (4) 

957 1007 FETCH_CLU: 
F Be $31 1 o3 “PUSH #*M<RO,R1,R2,R3,R4,R5> |; save the register past the MOVC3 SY 
65 64 53 959 1 MOVCS R3,(R4S, (RS) ; get the data into the special buffer SY 
F OBA tt 1010 POPR #*M<RO,R1,R2,R3,R4,R5> |; restore the registers SY 
95F 1011 SETIPL # ; drop IPL again SY 
D1 11 oof i \§ BRB POINT_R4 a 
964 1014 VERIFY_CSB: SY 
56 5B 32 0964 1015 CVTWL  =«R11,R6 3 get the system index SY 
56 Q0000000'FF46 0D 967 1 16 MOVL StL UOGL_.CLUSVECERGJ RG ; get the CSB address SY 
Ea 96F 101 BGEQ 99 ; GEQ means it is now unused SY 
59 6 01 0971 1 18 CMPL R6,R9 ; is it the same as ours? SY 
A 12 0974 101 BNEQ ; NEQ means it changed SY 
5B 4C AB DI 976 1020 CMPL SBSL_CSID(R6) ,R11 ; is the CSID the same? SY 
04 12 O97A 1021 BNEQ ; NEQ means it changed SY 
50 01 3C bore 10 § MOVZWL #SS$_NORMAL,RO SY 
0 b980 1054 RSB Sy 
4 18 5 998: SETIPL #0 . ores IPL SY 
FC AD 02 cA 09 1026 BICL2 #<l@SYI_V_INCLUSTER>,FLAGS(FP) ; reset the cluster flag SY 
50 028C 8F C 0987 1027 MOVZWL #SS$_NOSUTHNODE ,RO ; declare an error ay 
05 Baae 19 : RSB = 
$980 19 0 LOCK: SY 
08 098D 1031 -BYTE IPL$_SCS SY 
O98E 10 § ASSUME <.-SPC_LOCK> LE 512 SY 
Re i 
O98E 1035 ; Return total sizes for all page or swap files sv 
Se UE row bis gst tm : 
098E 1039 ; 0 => page file SY 
Be ett ore keg eee iH 
SoBe 1048 : 0 => total space SY 
Bane 133? ; ete 2 1 => free space a 
O98E 1045 ;: 1 => keeps it from being null SY 
nae i 
O38 1048 SPC_PAGESWAP: ; SY 
A2 FC 7. 9¢ 44 4 ! rt +f #SYI ee a te ; skip it for remotes 3 
57 00000000'EF ee 996 1981 MOVZWL SGNSGW_SWPFILCT,R7 : first page file slot SY 
58 O00000000'°EF 00 099D 1 26 MOVL MMGSGL_MAXPF IDX,R8 ; last one SY 
o i ~~ : e? BRB 208 3; resume in common code - 
hum 0 one 1055 jos: MOVL #1,R7 ; always the first swap file slot SY 
58 veces Be 9A9 1 2$ MOVZWL SGNSGW_SWPFILCT,R8 d SY 
8 OD e 198 , DECL R8 3; max index for swap files e 
5 D4 0982 1 38 208: CLPIL (R5) : initial count SY 
58 i cs 4 i pet er R8 3; slots to count - 1 sy 

5 3; none 

"FFG 1 MOVAL @MMGS$GL_PAGSWPVCCR7],R7 ; first slot SY 
- neem 87 BO ya 1 8 30$ MOVL (R7)+,R6 ; address of PFL structure SY 


| 
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00000000' EF ‘8 p} ‘8 } : ys, R6,MMGSGL_NULLPFL ; be it in use 
OE $3 A6 8 E1 CD 1 § BBC AA od zheiTeo. »PFLSB_ FLAGS (RO), te not inited 
54 1 3 De 1 BBS 3 count free sp space 
14 ae 44 i 3 aree Prist *BITMAPSIZ(R6), (R5) ; total 
65 18 46 CO 6O9DC «(1 29 $88: ADOL Bbc Sb FREPAGCNT(R6),(R5) ; total free pages 
DE 5 F4 43 f 5 $: SOBGEQ $ ; loop over all files 
04 54 «1 £0 9€3 1 ” ; BBS : oR4 608 : free space - already page count 
65 6 03 9E7? 1074 ASHL *(R5), (RS) 3; convert byte count to page count 
FF47 03} 434 ! ie 60$: 


me me ee ee a a a a a a a a a a 


BRW POINT “RE ; join common exit code 


$ 
$s 
$ 
$ 
$ 
$ 
$ 
S$ 
$ 
$s 
$s 
$s 
Ss 
$ 
$s 
$s 
$s 
$s 
$s 
$s 
$s 
$s 
Ss 
$s 
$s 
$s 
$s 
$s 
Ss 
Ss 
$s 
Ss 
s 
$s 
Ss 
Ss 
$s 
S$ 
s 
Ss 
$s 
Ss 
$s 
$s 
Ss 
Ss 
$s 
Ss 
Ss 
Ss 
Ss 
$ 
$ 
$s 
$s 
s 
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7 ae -SBTTL WNAMCSID = Get specified node CSID 


SYSGETSYI YST 
V0a=600 : 


= € 
a 
am 
n- 
— 

om 


FUNCTIONAL DESCRIPTION: 


ore to convert a node name to a CSID. If a 

valid CSID or node name is specified, the standard conversion 

routine EXESNAMCSID is simply called. If, however, a CSID that implies 
a ‘‘wildcard’’ CSID (-1) is specified, then the next active node is 
chosen as the node CSID to pass to EXESNAMCSID. EXESNAMCSID then 
returns the node's CSB address. 


INPUTS: 


) = address of specified CSID 
address of specified process name descriptor 


> 
no 


OUTPUTS: 
RO = success/failure of operation 
R4 = current process PCB address 

RY = specified node CSB address 

R11 = specified node CSID : 

@CSIDADR(AP) = specified node CSID or special ‘‘wildcard’’ context CSID 


00000008 CSIDADR 8 
0000000C NODE 12 


NAMCSID: 
ENABLE LOCAL_BLOCK 


; MAKE SURE WE'RE IN A CLUSTER HERE 
MOVL ), UOGL, CLUB AG 


B #CLUBSV_CLUSTER, CLUBSL_FLA 
BISL2 #<laSYI~V_INCLUSTER>, FLAGS 


1$: mOvL CSIDADR(AP) ,R6 ig 
IFWRT #4, (R6),2$ :¢ 
BRW 

i 


56 00000000'EF 


04 1C A6- = 00 
FC AD 02 


56 =608 AC 
40 


CLUB ADDRESS 

QL, NOT IN CLUSTER 

6),1$ ; IF CLEAR, NOT A CLUSTER 
:mark that we're in a cluster 


CSID address 
eql = none 
eck access to CSID 


@o--WO 


G 
I 
G 
( 


OOCE 
50 


2s: MOVL (R6),RO ; 
f 19$ 3 


BGTR 208 
: "Wildcard’ type CSID specified 


f eql = none 
f gtr - standard CSID 


-——$F9Ww  —Oo Om—o 
Wo 


Wo 


03 FC AD 0 01 0 


#SYI_V_INCLUSTER,FLAGS(FP),5$ ; are we in a cluster? 
0c4 1 0$ 


: yiigcerding without a cluster! 
IPL $ : lock the cluster database 

ut, RO,R5 ; get NIX (Node Index) from CSID 
Lo #<faSYI_V_WILD>,FLAGS(FPS ; mark wildcarding in effect 

Ww =o : increment NIX 


rch Oh 
35 66 


a a ee a a a a ee a a a a a 
AAAAAEPIPIPYRIPININININIDS 4 9  *  HQDOODOOOCOOCOCOC OO OOOOOOO OMMDccococecpcNcDcD ~ 
PUAN OOO NAN WIN O ODA VEIN 9 OD NAME WIN | 9 OD NAME WN OOO NAUS WHO 


PDN D AOA LSM BROA LOO NUM MM MMM MMMM MM Mmmm Mmmm mmmmmmmmmmmrmnrnicriecnery 


BBS 
BRW 
5$: SET 
CvT 
BIS 
INC 


10$: 
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502508 NAMCSID = Get specified node CSID iat fi 8g: 10:48 YOYS SRCISYSCETSYI MAR: 1 . 28, 
00000000 ' EF 3 1 OA 1135 CMPW R5, CLUSGW_MAX INDEX ; is NIX in valid range? 
of LA TS Bee Mit Bye 
3 no m e 
5 C QA3SA 11 8 118 MOVZWL B05 5 ; clear out the top half of R5 
50  Q0000000'FFS Dd A 11 MOVL SFL USGL .CLUSVECERSI,RO 3 get CSB address 
E 1 nas 1140 BGEQ 1 ; 1f GEQ, unused = try next one 
7E 4€C AO OD A47 1141 MOVL GRSL.CSIDCRO) .= CSP) : get the CSID 
A4B 1128 SETIPL @ ; lower IPL to touch the argument List 
66 —E 00 aes 114 MOVL spore. (Re) ; store CSID in argument List 
: one ~ yee BRB 20$ 
A 1146 ; 
x 1142 3 At this point, the CSID argument was defaulted 
3¢ Ef AD 01 €0 0a53 1149 19s: BBS #SYI_V_INCLUSTER,FLAGS(FP),21$ ; Let EXESNAMCSID do it 
53 OC AC b9 Ad 1150 MOVL NODETAP),R ; get the nodename argument 
7: me 1188 BEQL 75$ ; 1t was defaulted toc, skip everything 
ASE 1153; 
OssE 1154 ; At this point, we're not in a cluster, but a nodename was specified, 
pAze 1122 3 see if it's the local one, if so succeed. 
vei 1189 ‘ IFNORD #8,(R3),50$ 3 probe the descriptor 
52 63 7D OAS 1158 mova = (R$) ,R2 : get the nodename descriptor 
9 18 thea 11e9 Be BAM : Eac‘neans”aope ee” 
520k 1161 MPU #15,R2 $ Is it too long? 
8 IF 1196 BLSSU 65$ ; LSSU means too long 
116 IFNORD R2,(R3),50$ ; probe the string 
51 00000000'GF dE 1164 MOVAL G*S$CS$GA_LOCALSB,R1 : point at the local $B 
55 44 Al SE 1165 MOVAB SBST_NODENAME(R15,R5 : get address of nodename 
ae a es PEE ee 
Ss <¢ 3% 3 1168 CMPC3 Re (R3), (RS) : is it the same nodename? 
— - te 1397 BNEQ § 4 ; NEQ means this is NOT the one 
40 11 1109 BRB 5$ 3; It Is the local nodename, exit 
1172 ; 
1178 ; Convert node name to CSID, if specified 
| 4E FC AD (01 «OE? 1175 208: BBC #SYI_V_INCLUSTER,FLAGS(FP) ,60$ ; spec ified CSID no cluster! 
5¢ 604~—S C0 1176 1$: ADDL #4,AP ; make CSIDADR top argument 
O0000000'EF 16 117 ; get into nonpaged code 
1178 - SAVE_PSECT 3; Save current .PSECT context 
1180 ; The reason for jumping to the nonpaged exec rather than dynamically 
1181 ; locking down pageable pages is that EXESNAMCSID cannot be entered 
11 § 3; above fet 5 and the dynamic locking would cause that to Regen. The 
11 3 reason that EXESNAMCSID must be entered at IPL 2 or lower is that it 
1184 ; touches the caller's argument List (which contains arguments that 
1} 5 ; could fault) and page faults are not allowed above IPL 2. 
0000 11 5 -PSECT AE XE RONPAGED ; EXESNAMCSID returns at IPL$_SYNCH 
QOOOOAFI‘EF 16 1188 25$: JSB EXESNAMCSID ; get CSB address and CSID 
11 § SETIPL #0 ; restore IPL - CSB is no longer locked 
05 11 ’ RSB 3; go back to paged code 
119 
| 


Oo 

~N 

wn" 

oO 
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20 50 


59 4 
54 aoeenaedl 


54 10 A4 
59 64 

be 

FC AD 4 


50.01 
54 00000000'EF 


50. OC 

FO 

50 OA00 8F 
50 86 028C BF 
E2 


Rise bey SYSTEM stavice 1 
t specified node CSID 


om 
oso 


WILD, FLAGS(FP) ,30 


G 
AM 
0 
C 
Dd 
E 
B 
A 


mMo—oNmo 


he bn ts 


MMNMNONON) 3 9 3 3 SS 3 a BQO OOOO O00 00000 


MEAN 9 ODNAUE WN OODNAUE WIN O ODNOMLS UT 
e@ete 


CSID address and return 


BNEQ 
BUG ‘ome: TCONCLUDAT, FATAL 
MOV CLU LUBE LOCAL. CSB(R4) ,R4 


CWo-co9o —-c;9 Om 
SoOOWwW-m MOO” 


So 
uw 


#S$$_ACCVIO,RO 
#SSS_NOMORENODE ,RO 
#S$$_NOSUCHNODE .RO 


Www 
OK Oe oO 


o 
oO 


- DISABLE sei, talon 


Sete Ge Ge Ge Se 
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; get paged .PSECT context back 
restore argument pointer 

save 

; ‘‘wildcard’’ type CSID Spec te ted 
restore node index conte 

set continuation context. 


; branch if error 
; save CSB address 


et address of Cluster Block 
peu e moene it’s not null 
oh 
; get address of local CSB 
see if local csb = target csb 
means target = local 


EQL 
ocresyy V Per thee NODE>, riaGscrPs ; set the remote target flag 
SCHSCL_ CURPCB. R4 


set success 
restore current PCB address 


; make sure we can page fault 


set access violation 
set no more nodes 
set no such node 


to lock the cluster database 
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y0n 508 EXCENARCSID' CONVERT NODE NAME TO CSID mie 7 Og: 10:38 SYS. SRCISY SGET SY1.MAR;1 ° 2 Tabl 
Na 4 = .SBTTL EXESNAMCSID = CONVERT NODE NAME TO CSID 
ari § ; EXESNAMCSID = CONVERT NODE NAME TO CSID 
AFL 1 ? FUNCTIONA DESCRIPTION: 
AF. 1 gi : EXESNAMCSID OBTAINS THE PROPER CSID AND CSB ADDRESS FOR A 
AFL 1 ; STANDARD NODE SERVICE ARGUMENT LIST CONSISTIN 
AFI 1234 ; OF A CSID/NODE-NAME PAIR. THE ABSENCE OF BOTH SELECTS THE 
ar oi CURRENT NODE. 
AF. 1 5 : NOTE THAT THE OPERATION OF THIS ROUTINE ONLY MAKES SENSE IN 
AF1 1 B : GhUSTER, THEREF ORE A NOSUCHNODE ERROR WILL BE RETURNED IF 
Ar 23 : CLG GL_CLUB = 0 ON ENTRY 
AF1 1241 CALLING SEQUENCE: 
AFI 4g : JSB/BSB EXESNAMCSID 
OAF1 1244 3 INPUT PARAMETERS: 
OAF1 1245 : CSID(AP) = ADDRESS OF CSID SOURCE/DESTINATION (CSID) 
Oar 46 : ; NODENAME(AP) = POINTER TO NODE DESCRIPTOR TO CONVERT TO CSID 
OAF1 1248 IMPLICIT INPUTS: 
Oar! 49 ; @CLUSGL_CLUSVEC - VECTOR OF CSB ADDRESSES 
OAF1 1251 ; OUTPUT PARAMETERS: 
OAF1 1 3¢ 3 : RO = COMPLETION STATUS 
OAF1 1253 ; Ri = NODE IDENTIFICATION (CSID) OF NAMED NODE. 
OAF1 1254 ; R4 = CSB ADDRESS OF NODE IF MATCH IS FOUND. 
QAF1 1255 ; @CSID(AP) = NODE IDENTIFICATION (CSID) OF SELECTED NODE 
wr ; 28 : 3 IPL = IPL$_SYNCH (IPL UNCHANGED IF SS$_ACCVIO OR SS$_IVLOGNAM) 
OAF1 1258 COMPLETION CODES 
AFI 1259 ; SS$_NORMAL = NORMAL SUCCESSFUL COMPLETION 
gary 1260 ; SS$-IVLOGNAM = INVALID LOGICAL NAME STRING 
QAF1 1261 ; SS$"NOSUCHNODE - NONEXISTENT NODE OR INVALID CSID 
oar 6¢ ; SS$"ACCVIO = ACCESS VIOLATION FOR WRITE DESTINATION 
AF1 1264 : SIDE EFFECTS: 
a ; 6g : NONE 
AFL 1967 * 
4 1 CSID ; special offset for EXESNAMCSID 
$b 000008 ar ! 63 NODENAME = 8 3 special offset for EXESNAMCSID 
Ne r recog jeLe Loca pLock : TRANSLATE PNAME TO CSID 
50 12 DB OAFI 1 8 : s* RO ; CHECK THE CURRENT IPL LEVEL 
50 9 D1 OAF4 1276 CRP #IPLS_ ASTbEL, RO ; ARE WE ABOVE PAGE FAULT IPL? 
1E OAF? 1275 BGEQU & : GOOD, Ww 
30 OAF9 1 2 BSBW > CANNOT BE CALLED ABOVE ASTDEL 
54 noo000$@2? DO OAFC 1277 8S: MOVL ELUSGL_cLUB,RA ; GET THE CLUSTER BLOCK ADDRESS 
‘Ef 1 1 28 BNE QU : GOOD, WE'RE IN A CLUSTER 
As 3 127 BRW NONE X > CANNOT BE CALLED iF NOT IN A CLUSTER 
54 18-az aa OD 1 9 10$:  MOVL CLUBSL LOCAL _CSB(R4) ,R4 : GET THE CSB ADDRESS 
50 be AC Q 1 MO D(AP) RO : GET CSID ADDRESS 
1A ° 6 1 5 BEQL : NO CSID ADDRESS 
12 1 IFWRT #4,(RO),208 > ERROR IF ACCESS VIOLATION 


seen —EE _— 
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50 OC He 1 35$: MOVZWL #SS$_ACCVIO,RO ; SET ACCESS VIOLATION ERROR CODE 

1 RS : AND EXIT 
51 0 bg 1 208: MOVL {R0).R1 ; NOW FETCH CSID 
8 1 1 BEQL $ ; BRANCH IF NO CSID FOUND 
D4 CLRL 3 CLEAR CSID ADDRESS 
: DON'T NEED TO REWRITE SAME VALUE 


OO9F 31 BRW GOTCSID HAVE THE CSID, GO CHECK IT OUT 


50 9600154 8F HS 45$: 1 #SS$_IVLOGNAM,RO BAD NODENAME STRING 


; NO CSID SPECIFIED (CSIDADR = 0 OR CSIDADR => 0) 


W000 00O0M0I0D000D00 


SHOOD OOOH OOO OOS ODDS OOS wn 


§ 
§ 
8 1 
B 1 
c% 
a9 
1 
1 
1 
61 
6 1 
B 1 
¢ 4 
E | 
€ 1297 : Rs > LOCAL CSB 
. 4 38 ; => 0 (CSIDADR = 0 OR CSIDADR => 0) 
( 99 : - =R Re” Oot INTERESTING 
51 4C AG 00 ¢ 1301 30$:  MOVL CSBSL_CSID(R4),R1 : ASSUME LOCAL CSID 
53.8 aC 00 1 0¢ MOVL § NODENAME(AP) ,R3 t GET NODENAME ADDRESS IF SPECIFIED 
03 1 4 130 BNEQ 31% + NEQ MEANS NAME WAS SPECIFIED 
008ct = (31 6 04 ion BRW GOTCSID : NO NAME SPECIFIED, USE CALLER'S CSID 
39 130 
39 1 $$ ; MUST LOOK UP NODE NAME. PROBE THE DESCRIPTOR AND THE STRING, AND THEN 
33 08 : COPY IT TO THE STACK SO THAT IT CAN BE ACCESSED AFTER WE RAISE IPL. 
33 1310 : R4 => CURRENT CSB 
9 1311: R3 => NODE NAME DESCRIPTOR (ACCESS NOT YET PROBED) 
39 1 1 : RO = 9 OR RO => R = 0 OR CSIDADR => 0) 
39 13 : <R1,R2> NOT INTERESTING 
39 1315 IFNORD #8,(R3),35$ : PROBE THE DESCRIPTOR 
52 63 7D OB3F 1 18 mova = (R8) ,R2 : GET THE NOD DENAME DESCRIPTOR 
52 «52)«O3C)«COB42. 131 MOVZWL Re Rd : IS THE LENGTH LEGA 
DF 13 0845 1318 BEQL §- 45$ : EQL MEANS NOPC 
52 OF B1 0B47 1319 CMPW so #15, R2 : IS IT TOO LONG? 
DA 1F OB4A 1320 BLSSU 435° : LSSU MEANS TOO LONG 
4C 1321 IFNORD 2, (R3), 35$ : PROBE THE STRIN 
SE 10 C2 OBS2 1 : SUBL aes + ALLOCATE BUFFE THE STACK 
51 SE dO 0855 1 MOVL Sp aie : TEMPORARY POINTER TO BUFFER 
52 DD SCO0BSB8 «1324 PUSHL R2 : SAVE LENGTH OF NODE NAME 
81 8B 20 BSA 61325 40$:  MOVB. (R3)+,(R1)+ : COPY NODE NAME STRING FROM USER'S 
FA 38 F BSD 1 ‘ SOBGTR Re. 408 : BUFFER ONTO THE STACK 
8EDO 0860 1 OPL R : RESTORE LENGTH OF NODE NAME STRING 
53 DO 0863 1 : VL —s SP, R3 : POINTER TO NODE NAME BUFFER 
50 o0o00000'er Sr opek 1380 ROVIUL ee MAXINDEX RO «RETO THE NURGER GF ENTRIES 
5 D5 a6 1 DECL RO . y : CONVERT TO HIGHEST OFFSET 
q4 S ; SCAN CSB VECTOR TO LOOK FOR THIS NODE NAME 
B71 1335 ; R4 ~> CURRENT 
B71 «1 6 : => USER'S NOoE NAME STRING (IN BUFFER ON THE STACK) 
B71 «1337 : R USER'S NODE NAME LENGTH 
ar ; : R COUNTER FOR CLUsVEC SLOTS 
B71 1340 100$:  SETIPL LOCKPAGE : LOCK DOWN THE REST OF THE ROUTINE 
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51 00000000'FF40 00 B78 1341 MOVL @¢,USGL_CLUSVECCROI,R1 : GET THE POINTER TO THE CSB 
@! B80 1 4¢ GEQSsid ; GEQ MEANS UNUSED, TRY THE NEXT ONE 
1 DoD OB82 134 PUSHL R11 + SAVE THE POINTER TO THE TARGET CSB 
51 68 Al DO OB ad MOVL CSB$L_SB(R1),R1 : GET SB ADDRESS 
8 4g ; 1S THIS THE NODENAME? 
B88 1 48 ; RO = CLUSVEC INDEX 
1349 : Rl -> SB (SYSTEM BLOCK) 
1 0 ; R2 => USER'S NODENAME LENGTH 
B ; R3 => USER'S NODENAME STRING 
55 pp 1 4 PUSHL RS : SAVE RS 
55 44 A : A 1354 MOVAB SBST_NODENAME(R1),R5 =: GET ADDRESS OF NODENAME 
85 52 9 F 1355 CMPB ss R2, (R5) + : IS IT THE RIGHT LENG 
OA 12 0891 1 36 BNEQ 1 $ + NEQ MEANS NO, TRY MAE Went QNE 
OF 88 93 135 PUSHR #4 aOncRd R1 gh?- R3> + SAVE REGISTERS FOR. THE E _CMPC 
65 63 $2 95 1358 CMPC3 5, : IS IT THE SAME NODE 
OF BA 0899 1359 POPR HARD, aif ty R3> : RESTORE REGISTER 
18 «13 38 60 BEQL § GOTN : EQL MEANS THIS IS THE ONE 
O89 6¢ ; DID NOT FIND THE NODE BY NAME 
55 3 1364 150$: POPL RS : RESTORE RS 
51 1365 cy a ; RESTORE TARGET CSB ADDRESS 
cB 50 1 66 155$: SOBGEQ RO,100$ : LOOP IF DONE 
BE 136 TSTL (SP) + ; FAROW AUAY "hb FROM STACK 
SE 10 68 ADDL #16,SP : POP NODE NAME BUFFER FROM STACK 
: 7 3 EXIT WITH NONEXISTENT NODE STATUS 
50 028C 8F 1 re NONEX: MOVZWL #SS$_NOSUCHNODE RO : SET ERROR STATUS 
o3 RSB + AND RETURN TO CALLER 
3 : EXIT WITH A CRASH DUMP 
7 999$: BUG_CHECK ICONCLUDAT,FATAL 
2 FOUND THE NODE NAME, GET CSID FROM CSB AND CLEAN OFF THE STACK 
1: R4 => CURRENT CSB 
55 1 : GOTNAM: POPL RS ; RESTORE RS 
1 1384 POPL RI ; RESTORE TARGET CSB ADDRESS 
51 4C Al 1385 MOVL  CSBSL_CSID(R1),R1 : GET FULL CSID FOR NAME 
50 1 6 POP : RESTORE CSIDADR ARGUMENT 
SE 10 ADDL #16,SP : POP NODE NAME BUFFER FROM STACK 
89 : FOUND THE TARGET CSID, VERIFY IT 
1391 : R4 => CURRENT CSB 
1 36 : Ri > S10, F TARGET NODE 
1393 ;: = 9 oR -> 0 (Csi DADR = 0 OR CSIDADR => 0) 
34 : i > Not INTERESTING 
1 3% GOTCSID: 
139 SETIPL LOCKPAGE : BLOCK SYSTEM EVENTS 
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SYSSGL_HID_TIM eeeeeeee =X 
SYS$GQ"VERSION eeereeee =X 
SYS$GW"BJOBLIM eeeeeeee =X 
SYSS$GW_F ILEPROT eeeeeere =X 
YS$GW"GBLBUF QU0 eeeerere =X 
SYSS$GW_IJOBLIM eeeeeere YX 
SYS$GW_NJOBLIM eeeeeeee =X 
SYSSGW_RJOBLIM keener xX 
SYSSGW_RMSEXTEND eeeneeee YX 
TEMPORARY = FFFFFFES 
TYSGB_AUTOCHAR eeeeeeeer KX 0 
TTYSGB~DEF SPEED ekereeee =X 6 
TTY$GB_DIA eeeeeeee =X 
TTYSGB_PARITY eeeeeree KX 0 
TTYSGB_RSPEE eeereeee XK 0 
TTY$GB_SILOTI eeereeee KX 0 
TTYSGL_DEF CHAR eeeneere KX 0 
TTYSGL_DEF CHAR2 eeereree§ XK 0 
TTYSGL_DEFPORT eeereree X 0 
TTY DELT eeeeeeee XO 
ITY8G x eeeeeeee XK 0 
TTYSGL_TIME eeeeeeee = X  0 
TTYSGW_ALTALARM eeeneeee XK 0 
TTY$SGW_ALTYPAHD teerenee xX 0 
TTYSGW_CLA eeeeenee XX 0 
TTY$GW_DEFBUF eeeneene xX 0 
TTYSGW_DMASIZ eeeeteee xX 2 
TTYSGW_PROT eeeeeeee 8 6X 0g 
Mie TYPAHDSZ eeeeeere KX 0 
VALUE = 00000000 
paca Lay CSB 00000964 R 02 
YPE = 00000001 
feo e mas nr ean eae ee oo 
! ; Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ¢ 8-3 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
he 2 Hh: lade 94 44 ( 3070.) 8 ( §°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
EXEPAGED 00000005 <¢ 5.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
AEXENONPAGED QOOOO00A (¢ 10.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
Geeweecesoesooseseecoscos 
: Performance. indicators ! 
Phase Page faults CPU Time Elapsed Time 
Command proces P 130 90: 0:79 if :0 0: 3 
ommand processing :00:00. :00:04. 
s 1 12 :01:21. :05:18.24 
Synbol table sort 799 :00: at 3: Ug 
Symbol table output 8 0 a3) 0:00:01.89 
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feetaisrmreset® = ad RE BR 


The york ing ser ys was 7009 p 
4391 oytee (858 pages) of virtual memory were used to buffer the intermediate egde. 
09 pages of syabet table space al nose to hold 1682 non-local and local symbols. 


s were read in Pass 1, producing 54 object records in Pass 2. 
pages of virtual memory were used to define 37 macros. 
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Macro Library statistics ! 


' 
iqacsequaese ee a ey ae oe emma n + 


Macro Library name 


“$52 280UA = Sve OTe set or 8 ALB: 1 5 
_8255$DUA28: ave -0e8 LIB.MLB; 14 
$255$D0UA28: CSYSLIBISTARLET.MLB;2 12 
TOTALS (all Libraries) 31 


4130 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 


H 10 
SYSGETSYI - GET SYSTEM INFORMATION SYSTEM SERVICE ae StS 9 09:10:18 yaxeves 
SEP=1984 05:54: SYS.SRCISYSGETSYI.MAR; 1 
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MACRO/LIS=LIS$:SYSGETSYI/OBJ=OBJ$:SYSGETSYI MSRC$:SYSGETSYI/UPDATE=(ENHS$: SYSGETSYI) +EXECML$/LIB+SYSS$LIBRARY : SYSBLDMLB/LIB 
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